home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_127756.txt < prev    next >
Text File  |  1990-08-14  |  4KB  |  212 lines
  1. -- card: 127756 from stack: in
  2. -- bmap block id: 128088
  3. -- flags: 4000
  4. -- background id: 14625
  5. -- name: Set Sections Window 2
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   put empty into card field "Add Class 1"
  9.   put empty into card field "Add Class 2"
  10.   set style of card button "Section 1" to "opaque"
  11.   set style of card button "Section 2" to "opaque"
  12. end closeCard
  13.  
  14. on doMenu menuItem
  15.   if menuItem is "Add Class" then
  16.     put "Biology 12 (4)" into card field "Add Class 1"
  17.     put "0 of 30" into card field "Add Class 2"
  18.   else pass doMenu
  19. end doMenu
  20.  
  21.  
  22. -- part 1 (button)
  23. -- low flags: 00
  24. -- high flags: 0000
  25. -- rect: left=0 top=0 right=342 bottom=512
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: 
  34.  
  35.  
  36. -- part 2 (button)
  37. -- low flags: 00
  38. -- high flags: 0000
  39. -- rect: left=8 top=26 right=41 bottom=23
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 5068 / 5068
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: Close
  48. ----- HyperTalk script -----
  49. on mouseDown
  50.   set icon of me to "Close Box Hi"
  51. end mouseDown
  52.  
  53. on mouseLeave
  54.   set icon of me to "Close Box"
  55. end mouseLeave
  56.  
  57. on mouseUp
  58.   set icon of me to "Close Box"
  59.   lock screen
  60.   pop card
  61.   unlock screen
  62. end mouseUp
  63.  
  64.  
  65. -- part 3 (field)
  66. -- low flags: 01
  67. -- high flags: 0000
  68. -- rect: left=17 top=261 right=275 bottom=92
  69. -- title width / last selected line: 0
  70. -- icon id / first selected line: 0 / 0
  71. -- text alignment: 0
  72. -- font id: 3
  73. -- text size: 9
  74. -- style flags: 0
  75. -- line height: 12
  76. -- part name: Add Class 1
  77.  
  78.  
  79. -- part 4 (field)
  80. -- low flags: 01
  81. -- high flags: 0000
  82. -- rect: left=220 top=261 right=275 bottom=283
  83. -- title width / last selected line: 0
  84. -- icon id / first selected line: 0 / 0
  85. -- text alignment: 65535
  86. -- font id: 3
  87. -- text size: 9
  88. -- style flags: 0
  89. -- line height: 12
  90. -- part name: Add Class 2
  91.  
  92.  
  93. -- part 5 (button)
  94. -- low flags: 00
  95. -- high flags: 0001
  96. -- rect: left=292 top=260 right=275 bottom=311
  97. -- title width / last selected line: 0
  98. -- icon id / first selected line: 0 / 0
  99. -- text alignment: 1
  100. -- font id: 0
  101. -- text size: 12
  102. -- style flags: 0
  103. -- line height: 16
  104. -- part name: Section 1
  105. ----- HyperTalk script -----
  106. on mouseUp
  107.   if style of me is "opaque" then
  108.     set style of me to "transparent"
  109.   else set style of me to "opaque"
  110. end mouseUp
  111.  
  112.  
  113.  
  114. -- part 6 (button)
  115. -- low flags: 00
  116. -- high flags: 0001
  117. -- rect: left=312 top=260 right=275 bottom=331
  118. -- title width / last selected line: 0
  119. -- icon id / first selected line: 0 / 0
  120. -- text alignment: 1
  121. -- font id: 0
  122. -- text size: 12
  123. -- style flags: 0
  124. -- line height: 16
  125. -- part name: Section 2
  126. ----- HyperTalk script -----
  127. on mouseUp
  128.   if style of me is "opaque" then
  129.     set style of me to "transparent"
  130.   else set style of me to "opaque"
  131. end mouseUp
  132.  
  133.  
  134.  
  135. -- part contents for background part 19
  136. ----- text -----
  137. 12
  138. 12
  139. 12
  140. 12
  141. 12
  142. 11
  143. 12
  144. 12
  145.  
  146. -- part contents for background part 20
  147. ----- text -----
  148. 47
  149. 80
  150. 53
  151. 54
  152. 52
  153. 102
  154. 48
  155. 13
  156.  
  157. -- part contents for background part 21
  158. ----- text -----
  159. Abrosimoff, Michael John
  160. Adams, Bryan
  161. Alexander, Rick
  162.  Alexander, Susan
  163. Allsop, Blair M.
  164. Azimov, Isaac
  165.  Barisoff, Larissa
  166. Bunyan, Paul
  167.  
  168.  
  169.  
  170. -- part contents for background part 22
  171. ----- text -----
  172. Industrial
  173. Academic
  174. Academic
  175. Academic
  176. Academic
  177. Academic
  178. Academic
  179. Commercial
  180.  
  181. -- part contents for background part 23
  182. ----- text -----
  183. 0.0
  184. 0.0
  185. 0.0
  186. 0.0
  187. 0.0
  188. 0.0
  189. 0.0
  190. 0.0
  191.  
  192. -- part contents for background part 24
  193. ----- text -----
  194. 0.0
  195. 0.0
  196. 0.0
  197. 0.0
  198. 0.0
  199. 0.0
  200. 0.0
  201. 0.0
  202.  
  203. -- part contents for background part 25
  204. ----- text -----
  205. 12.0
  206. 12.0
  207. 12.0
  208. 12.0
  209. 12.0
  210. 12.0
  211. 12.0
  212. 12.0